home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / game / patch / jst.lha / jstsw_usr / Install < prev    next >
Text File  |  1998-09-23  |  2KB  |  78 lines
  1. (set bin-dest
  2.      (askdir (prompt "Where would you like the binary files (JST, disk imagers) installed?\n"
  3.                              "A drawer will NOT be created\n\nThe location should be in your path.")
  4.                      (help @askdir-help)
  5.                      (default "C:")
  6.                      (newpath)
  7.       )
  8. )
  9.  
  10.  
  11. (if (exists "Work:" (noreq) )
  12.     (set @default-dest "Work:")
  13.     (if (exists "SYS:Work" (noreq) )
  14.         (set @default-dest "SYS:Work")
  15.     )
  16.      (set @default-dest "SYS:")
  17. )
  18.  
  19.  
  20.  
  21. ;ask the user to select a directory to install the other files
  22.  
  23. (set default-dest
  24.      (tackon (askdir (prompt "Where would you like the auxiliary files (docs,examples) installed?\n"
  25.                              "A drawer called JST will be created.")
  26.                      (help @askdir-help)
  27.                      (default @default-dest)
  28.                      (newpath)
  29.              )
  30.      "JST"
  31.      )
  32. )
  33. (set @default-dest default-dest)
  34.  
  35. ;create the selected directory
  36. (makedir @default-dest
  37.          (infos)
  38. )
  39.  
  40. (set doc-dest (tackon @default-dest "docs"))
  41.  
  42. (makedir doc-dest
  43.          (infos)
  44. )
  45.  
  46. (if (exists "sources" )
  47.   (
  48.     (set source-dest (tackon @default-dest "sources"))
  49.  
  50.     (makedir source-dest
  51.            (infos)
  52.     )
  53.     (copyfiles (source "sources")
  54.              (dest source-dest)
  55.          (all)
  56.     )
  57.   )
  58.  
  59.  
  60. )
  61.  
  62.  
  63. (copyfiles (source "bin/")
  64.            (dest bin-dest)
  65.        (all)
  66. )
  67.  
  68. (copyfiles (source "docs")
  69.            (dest doc-dest)
  70.        (all)
  71. )
  72.  
  73.  
  74. ; cleanup
  75.  
  76. (delete (tackon bin-dest "README"))
  77. (delete (tackon bin-dest "README.info"))
  78.